home *** CD-ROM | disk | FTP | other *** search
- ; PSPad clip definition file for SQL (MSSQL 2000)
- ; author: Fiala
- ; last revision 17. VII 2006 08:13
- ;
- [Macro definition]
- %agenda%=@C Agenda=,,ZA,CI;CL;EO;IM;LI;MI;NH;OD;OV;PF;PO;PV;SA;SE;SK;UC;UP;ZA,
- %table%=@E Tabulka=,,,,
- %table1%=@E Z tabulky=,,,,
- %table2%=@E Do tabulky=,,,,
- %field%=@E Pole=,,,,
- %field1%=@E Pole z (child)=,,,,
- %field2%=@E Pole do (master)=,,,,
- %fieldtype%=@E Typ pole=,,,,
- %default%=@E V²chozφ hodnota=,,,,
- %notnull%=@K Not null,not,
- %date1%=@D "Enter date",Date=
-
-
- [Date | this clip shows dialog and inserts date]
- %date1%
-
- [Tabulka | vytvo°enφ novΘ tabulky]
- insert ##%agenda%_Log values('%table%', 'Nova tabulka %table%', 1, 1, 1, 0) --%date%
-
- /****************************************************************/
- if not object_id('%table%') is null
- update ##ZA_LOG set JeProvadeno = 0 where Kod = '%table%'
- else
- begin
- print ''
- print 'Nova tabulka %table%'
- Create table %table% ....
- update ##%agenda%_LOG set Chyba1 = 0 where Kod = '%table%'
- end
- go
- if exists (select JeProvadeno from ##%agenda%_LOG where Kod = '%table%' and JeProvadeno = 1 and Chyba1 = 0)
- begin
- print '%table% - prava pro skupinu ProgSoft'
- Grant select on %table% to ProgSoft
- update ##%agenda%_LOG set Chyba2 = 0 where Kod = '%table%'
- end
- go
- ;
- [Ref.integrita | vytvo°enφ referenΦnφ integrity ]
- insert ##%agenda%_Log values('FK_%table1%_%field1%', 'Nastaveni ciziho klice FK_%table1%_%field1% do %table2%', 1, 1, 0, 0) -- %date%
-
- /****************************************************************/
- if not object_id('FK_%table1%_%field1%') is null
- update ##%agenda%_LOG set JeProvadeno = 0 where Kod = 'FK_%table1%_%field1%'
- else
- begin
- print ''
- print 'Nastaveni ciziho klice FK_%table1%_%field1% do %table2%'
- Alter table %table1% add Constraint FK_%table1%_%field1% foreign key(%field1%) references %table2% (%field2%)
- update ##%agenda%_LOG set Chyba1 = 0 where Kod = 'FK_%table1%_%field1%'
- end
- go
-
- [Pole | novß pole v tabulce]
- insert ##%agenda%_Log values('%table%.%field%', 'Nove pole %table%.%field%', 1, 1, 0, 0) --%date%
-
- /****************************************************************/
- if (select col_length('%table%', '%field%')) is not null
- update ##%agenda%_LOG set JeProvadeno = 0 where Kod = '%table%.%field%'
- else
- begin
- print ''
- print 'Novy sloupec %table%.%field%'
- alter table %table% add %field% %fieldtype% %notnull% null constraint DF_%table%_%field% default %default%
- alter table %table% drop constraint DF_%table%_%field%
- update ##%agenda%_LOG set Chyba1 = 0 where Kod = '%table%.%field%'
- end
- go
-